home *** CD-ROM | disk | FTP | other *** search
/ Best of www.BestZips.com (Collector's Edition) / Best of WWW.BESTZIPS.COM Collector's Edition (JCSM Shareware) (JCS Marketing).ISO / grapprog / splt252.zip / TESTS / T5-29.BAS < prev    next >
BASIC Source File  |  1991-07-21  |  427b  |  13 lines

  1. 10 OPEN "T5-29.PLT" FOR OUTPUT AS #1
  2. 20 DIM A$(40),B$(40),C$(40)
  3. 30 A$="THIS LABEL IS RIGHT JUSTIFIED"
  4. 40 PRINT #1,"IN;SP1;SM*;PA6000,5500;"
  5. 50 PRINT #1,"CP";-LEN(A$);"0;LB";A$+CHR$(3)
  6. 60 B$="THIS LABEL IS CENTERED BELOW THE POINT"
  7. 70 PRINT #1,"PA4500,5000;"
  8. 80 PRINT #1,"CP";-LEN(B$)/2;"-.5;LB";B$+CHR$(3)
  9. 90 C$="VERTICALY CENTERED LABEL"
  10. 100 PRINT #1,"PA2750,4500;"
  11. 110 PRINT #1,"CP0,-.25;LB";C$+CHR$(3)
  12. 120 END
  13.